(x-create-frame-with-faces): Handle `reverse' as parameter.

diff --git a/lisp/faces.el b/lisp/faces.el
index 1f4f6ba723f24eddccda34c000d169adfa90994f..34b88ff59509b60c754cf374a548c84ee6da51ca 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -724,6 +724,17 @@ If NOERROR is non-nil, return nil on failure."
           (rest faces))
       (set-frame-face-alist frame faces)
 
+      (if (cdr (or (assq 'reverse parameters)
+                  (assq 'reverse default-frame-alist)))
+         (let ((params (frame-parameters frame)))
+           (modify-frame-parameters
+            frame
+            (list (cons 'foreground-color (cdr (assq 'background-color params)))
+                  (cons 'background-color (cdr (assq 'foreground-color params)))
+                  (cons 'mouse-color (cdr (assq 'background-color params)))
+                  (cons 'cursor-color (cdr (assq 'background-color params)))
+                  (cons 'border-color (cdr (assq 'background-color params)))))))
+
       ;; Copy the vectors that represent the faces.
       ;; Also fill them in from X resources.
       (while rest